Исходный код

Option Explicit
Call Wait()

'==============================================================================
'Изменить курсор на "Песочные часы", приостановить работу на 2 сек.
'==============================================================================
Sub Wait()
    ThisApplication.Utility.Waitcursor = TRUE
    ThisApplication.Utility.Sleep(2000)
    ThisApplication.Utility.Waitcursor = FALSE
End Sub
'==============================================================================